      subroutine foo(x)
      x = x +5 + 2 * x + sin(x+2.0)
      x = 5.0
      x =  13.2
      end
